Top 10k strings from Start to Program (1984)(St. Michael)(Tape 1 of 2 Side B).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /

Back to the directory listing

   3 z$=w$+"wheelbase too long.":
   3 z$=w$+"car would be too tall.":
   3 user program
   3 read user program vars
   3 introduction screens
   3 highlight user variable
   3 change user variable
   3 ;s$;s$;s$;s$;
   2 z$=w$+"wheelbase too short.":
   2 z$=w$+"passengers need room.":
   2 z$=w$+"passengers need room":
   2 z$=w$+"no room for wheel arch.":
   2 z$=w$+"car would be too long.":
   2 p$="tunes"
   2 OOOOOOOOOOOOOOOOOO
   2 ;"To go to the next:   press ";
   2 ;"        ";:
   1 z$=z$+m$(1
   1 z$=z$+k$(1
   1 unpack string get first
   1 u(i)=t(i):
   1 tunes l   
   1 tunes     
   1 taunt the user
   1 taunt for user
   1 t(i)=u(i):
   1 screen    
   1 s$="                                "
   1 runcode   
   1 run       T
   1 riff frills
   1 put up intro screens
   1 program menu
   1 p$=p$+n$(mq,i)
   1 n$(i),f$(i),o$(i):
   1 main program
   1 main      
   1 loading screen
   1 listing subroutine
   1 list other subs
   1 k$=k$+",":
   1 intro screen if any
   1 input positive number
   1 input one item in line
   1 initialise
   1 highlight next var
   1 g$=f$(mq):
   1 editor/run menu
   1 editor subroutine
   1 charset & colour subs
   1 car l     
   1 car       
   1 boxes   blotch  jingle  tunes   car     
   1 `xxxXXXhhhPPP
   1 `xxxXXXhhh
   1 XXXhhhPPPpppHHH```xxxXXXhhhPPPppGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG
   1 To return to Choices:press 
   1 To go to next page:  press 
   1 STOP THE TAPE
   1 OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO
   1 JINGLE CHOICESd
   1 INTRODUCTION TO TUNES
   1 INTRODUCTION TO CAR
   1 GGGGGGGGGGGGGGGGGGGGGGGGGGGGJ
   1 Do you want to go back and try?         press 
   1 Created with Ramsoft MakeTZX
   1 CHANGING TUNES
   1 CHANGING CAR
   1 BASIC WORDS USED IN TUNES
   1 BASIC WORDS USED IN CAR
   1 ;s$;s$;s$;s$;:
   1 ;"warning: ";
   1 ;"then rewind it.":
   1 ;"Warning:"'"60 is the highest pitch.       ";:
   1 ;"Warning:"'"5 seconds is the longest note.";:
   1 ;"Warning:"'"-60 is the lowest pitch.       ";:
   1 ;"Warning: line cannot be any"'"longer, enter now or delete some";:
   1 ;"Type in the new value: ";:
   1 ;"Turn over tape,";
   1 ;"To run program:  press 
   1 ;"To pick this program:press ";
   1 ;"To move to the next: ";
   1 ;"To make a change:    ";
   1 ;"To choose this one:  press ";
   1 ;"To change this one:  ";
   1 ;"Then press 
   1 ;"Start the tape and press 
   1 ;"Rewind tape."
   1 ;"Press any key to move on!
   1 ;"Page ";pg:
   1 ;"LIST ";:
   1 ;"For CHOICES screen:  ";
   1 ;"Enter the data for the line:";
   1 ;"Carry on,"'"need a pitch for the last note";:
   1 ;"CHOOSE A PROGRAM";
   1 ;" DATA ";:
   1 ;" Choose another program ";
   1 ;"  to  go  on   
   1 190   32    25    50    25    120   14    
   1 12121212,0,12121212,0 .2,4                  .2,7                  .2,12                 .2,7,.2,4             .8,0                  
   1 -------------------------
   1 ,".8,0",.2
   1 ,".2,7,.2,4",.8
   1 ,".2,7",.2
   1 ,".2,4",.2
   1 ,".2,12",.2
   1 ,".2,0",.2
   1 +"THE DELIBERATE BUG!"
   1 +"SHORT PASSENGER COMPARTMENTS"
   1 +"HINT: THE WINDOWS FOR"+
   1 +"COPY THIS TUNE."
   1 +"BET YOU DIDN'T FIND"+
   1 +"BET YOU CAN'T"+
   1 );" See and change ";p$;
   1 );" Run ";p$;
   1 );" Introduction to ";p$;
   1 (m$+z$)=13
   1 (learn to draw a box anywhere)(splash colour over the telly)  (a catchy little number)    (compose musical masterpieces)    (design your own car)     
   1 (k$+m$+z$)=13
   1 '"You  will not see  the  listings":
   1 '"Within  these  subroutines,  you":
   1 '"When  you change  this  program,":
   1 '"We also use an IF...THEN test in":
   1 '"This program which helps you  to":
   1 '"This is the first program  which":
   1 '"This  program shows you  how  to":
   1 '"The program allows you to change":
   1 "zeros in any line before 130."
   1 "you  will  be  asked  for  whole":
   1 "words you have already used,  as":
   1 "words are explained in Chapter 6":
   1 "will halt earlier if you  insert":
   1 "will  find  the  PLOT  and  DRAW":
   1 "well   as   CIRCLE,   which   is":
   1 "uses GO SUB,  a  word  you  will":
   1 "use  the keyword LIST,  followed":
   1 "tunes"," TUNES CHOICES","(compose musical masterpieces)"
   1 "to stop at the end of the DATA."
   1 "the start of the program."
   1 "the book.":
   1 "the  tune  data,  therefore  you":
   1 "the  BEEP.  Instead  of  putting":
   1 "subroutines,  but you can change":
   1 "subroutine you wish to  examine.":
   1 "playing  facilities.   Refer  to":
   1 "part  of the car is called by GO":
   1 "pair  of  zeros mark the end  of":
   1 "of the Spectrum manual.":
   1 "numbers after BEEP,  we will use":
   1 "lines of data. You can put up to":
   1 "line 30.  This tells the program":
   1 "l","a","b","c","d","e","r"
   1 "jingle","JINGLE CHOICES","  (a catchy little number)    "
   1 "for 4 notes. You must always put":
   1 "for  the subroutines unless  you":
   1 "find explained on page 52.  Each":
   1 "explained in Chapter 5."
   1 "display when you run the program":
   1 "develop   the  Spectrum's   tune":
   1 "details  given  in Chapter 5  of":
   1 "design  a car is based upon  the":
   1 "car","  CAR CHOICES","    (design your own car)     "
   1 "cannot  change  the  last   line":
   1 "by   the  line  number  of   the":
   1 "boxes"," BOXES CHOICES","(learn to draw a box anywhere)"
   1 "both  the time and the pitch  of":
   1 "blotch","BLOTCH CHOICES","(splash colour over the telly)"
   1 "are simply for visual effect."
   1 "all  of  the variables given  at":
   1 "a comma between the  numbers.  A":
   1 "You     cannot    change     the":
   1 "The   coloured   squares   which":
   1 "SUB statements.":
   1 "DATA and READ statements.  These":
   1 "Chapter 3 for more information.":
   1 "8  numbers on each line - enough":
   1 "(line  130):  However,  the tune":
   1  press any key ";
   1  for other subroutines,"'"or press any other key to go on.";
   1  Triptych Publishing Ltd. 1984
   1  BOXES CHOICESBLOTCH CHOICESJINGLE CHOICES TUNES CHOICES  CAR CHOICES 
   1  130 DATA 0,0
   1  120 DATA 
   1  110 DATA 
   1  100 DATA 
   1   90 DATA 
   1   80 GO SUB 4000: REM and wheels
   1   80 DATA 
   1   70 GO SUB 3000: REM windows,
   1   70 DATA 
   1   60 REM the data
   1   60 GO SUB 2000: REM underside,
   1   50 GO TO 20
   1   50 GO SUB 1000: REM draw body,
   1   40 LET e=
   1   40 BEEP d,p
   1   30 LET c=
   1   30 IF d=0 THEN STOP
   1   20 READ d,p
   1   20 LET a=
   1   10 REM the program
   1   10 LET l=
   1    press any key to speed up    
   1     press any key to speed up   ";s$;
   1                                 y
   1                                 p
   1                                 j
   1                                                                                                                                                                                                                                                           e
   1                                                                                                                                                                                                                                                                                              y
   1